home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / pascal / tpl60n19.zip / TESTPRGS.ZIP / INFBUG.PAS < prev    next >
Pascal/Delphi Source File  |  1992-05-01  |  729b  |  28 lines
  1. PROGRAM INFBug;  { Copyright (c) 1992 Norbert Juffa }
  2. {$N+,E+}
  3.  
  4. VAR X:  EXTENDED;
  5.     XA: ARRAY [1..5] OF WORD ABSOLUTE X;
  6.  
  7. BEGIN
  8.    WriteLn ('Testing correct printing of NANs');
  9.    XA [5] := $7FFF;
  10.    XA [4] := $8000;
  11.    XA [3] := $0000;
  12.    XA [2] := $0000;
  13.    XA [1] := $0001;
  14.    WriteLn ('First  NAN (7FFF 8000 0000 0000 0001) prints as: ', X);
  15.    XA [5] := $FFFF;
  16.    XA [4] := $8000;
  17.    XA [3] := $0000;
  18.    XA [2] := $8000;
  19.    XA [1] := $0000;
  20.    WriteLn ('Second NAN (FFFF 8000 0000 8000 0000) prints as: ', X);
  21.    XA [5] := $7FFF;
  22.    XA [4] := $8000;
  23.    XA [3] := $4000;
  24.    XA [2] := $0000;
  25.    XA [1] := $0000;
  26.    WriteLn ('Third  NAN (7FFF 8000 4000 0000 0000) prints as: ', X);
  27. END. { InfBg }
  28.